Dim fso,TestFile
Set fso=CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\Users\chtyfox\Desktop\config.ini")) Then
msgbox("Folder exists.")
else
set fld=fso.CreateTextFile("C:\Users\chtyfox\Desktop\config.ini")
End If